home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Basic / Visual Basic.60 / VB98 / WIZARDS / PDWIZARD / SETUP1 / COPY.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1998-06-18  |  3.9 KB  |  127 lines
  1. VERSION 5.00
  2. Begin VB.Form frmCopy 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "#"
  5.    ClientHeight    =   1830
  6.    ClientLeft      =   870
  7.    ClientTop       =   1530
  8.    ClientWidth     =   5910
  9.    ClipControls    =   0   'False
  10.    BeginProperty Font 
  11.       Name            =   "MS Sans Serif"
  12.       Size            =   8.25
  13.       Charset         =   0
  14.       Weight          =   700
  15.       Underline       =   0   'False
  16.       Italic          =   0   'False
  17.       Strikethrough   =   0   'False
  18.    EndProperty
  19.    Icon            =   "copy.frx":0000
  20.    LinkTopic       =   "Form1"
  21.    LockControls    =   -1  'True
  22.    MaxButton       =   0   'False
  23.    MinButton       =   0   'False
  24.    ScaleHeight     =   1830
  25.    ScaleWidth      =   5910
  26.    Begin VB.PictureBox picStatus 
  27.       AutoRedraw      =   -1  'True
  28.       ClipControls    =   0   'False
  29.       FillColor       =   &H00FF0000&
  30.       BeginProperty Font 
  31.          Name            =   "MS Sans Serif"
  32.          Size            =   8.25
  33.          Charset         =   0
  34.          Weight          =   400
  35.          Underline       =   0   'False
  36.          Italic          =   0   'False
  37.          Strikethrough   =   0   'False
  38.       EndProperty
  39.       Height          =   384
  40.       Left            =   168
  41.       ScaleHeight     =   330
  42.       ScaleWidth      =   5535
  43.       TabIndex        =   3
  44.       TabStop         =   0   'False
  45.       Top             =   708
  46.       Width           =   5592
  47.    End
  48.    Begin VB.CommandButton cmdExit 
  49.       Cancel          =   -1  'True
  50.       Caption         =   "#"
  51.       Default         =   -1  'True
  52.       BeginProperty Font 
  53.          Name            =   "MS Sans Serif"
  54.          Size            =   8.25
  55.          Charset         =   0
  56.          Weight          =   400
  57.          Underline       =   0   'False
  58.          Italic          =   0   'False
  59.          Strikethrough   =   0   'False
  60.       EndProperty
  61.       Height          =   420
  62.       Left            =   2085
  63.       MaskColor       =   &H00000000&
  64.       TabIndex        =   0
  65.       Top             =   1275
  66.       Width           =   1665
  67.    End
  68.    Begin VB.Label lblDestFile 
  69.       Caption         =   "*"
  70.       BeginProperty Font 
  71.          Name            =   "MS Sans Serif"
  72.          Size            =   8.25
  73.          Charset         =   0
  74.          Weight          =   400
  75.          Underline       =   0   'False
  76.          Italic          =   0   'False
  77.          Strikethrough   =   0   'False
  78.       EndProperty
  79.       Height          =   192
  80.       Left            =   168
  81.       TabIndex        =   1
  82.       Top             =   300
  83.       Width           =   5640
  84.    End
  85.    Begin VB.Label lblCopy 
  86.       AutoSize        =   -1  'True
  87.       Caption         =   "#"
  88.       BeginProperty Font 
  89.          Name            =   "MS Sans Serif"
  90.          Size            =   8.25
  91.          Charset         =   0
  92.          Weight          =   400
  93.          Underline       =   0   'False
  94.          Italic          =   0   'False
  95.          Strikethrough   =   0   'False
  96.       EndProperty
  97.       Height          =   195
  98.       Left            =   165
  99.       TabIndex        =   2
  100.       Top             =   0
  101.       Width           =   105
  102.    End
  103. Attribute VB_Name = "frmCopy"
  104. Attribute VB_GlobalNameSpace = False
  105. Attribute VB_Creatable = False
  106. Attribute VB_PredeclaredId = True
  107. Attribute VB_Exposed = False
  108. Option Explicit
  109. Option Compare Text
  110. ' frmCopy
  111. Private Sub cmdExit_Click()
  112.     ExitSetup Me, gintRET_EXIT
  113. End Sub
  114. Private Sub Form_Load()
  115.     SetFormFont Me
  116.     cmdExit.Caption = ResolveResString(resBTNCANCEL)
  117.     lblCopy.Caption = ResolveResString(resLBLDESTFILE)
  118.     lblDestFile.Caption = vbnullstring
  119.     frmCopy.Caption = gstrTitle
  120. End Sub
  121. Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  122.     If UnloadMode <> 1 Then
  123.         ExitSetup Me, gintRET_EXIT
  124.         Cancel = 1
  125.     End If
  126. End Sub
  127.